program frecventa_;
uses crt;
type nod=^ion;
  ion=record
    telefon:longint;
    urm:nod;
  end;
vector=array [1..100] of
  longint;
var a,b,c:nod;
    v:vector;
    n:integer;
procedure introducere;
var i:integer;
begin
  i:=1;
  new(a);
  c:=a;
  a^.urm:=nil;
  write('Telefon:');
  readln(a^.telefon);
  v[i]:=a^.telefon;
  a^.urm:=nil;
  while (a^.telefon<>0) do
    begin
      i:=i+1;
      new(b);
      write('Telefon:');
      readln(b^.telefon);
      v[i]:=b^.telefon;
      a^.urm:=b;
      a:=b;
    end;
  n:=i-1;
  a^.urm:=nil;
end;
procedure afisare;
begin
  writeln;
  a:=c;
  write('Lista este:');
  while (a^.urm<>nil) do
    begin
      writeln(a^.telefon,' ');
      a:=a^.urm;
    end;
end;
procedure frecventa;
var i,j,f,k:integer;
    sw:boolean;
begin
  for i:=1 to n do
    begin
      sw:=true;
      f:=0;
      for j:=1 to i-1 do
        if (v[i]=v[j]) then
          sw:=false;
      if sw then
        for k:=i to n do
          if v[i]=v[k] then
            inc(f);
      if f<>0 then
        begin
          writeln;
          write(v[i],' apare
            de ',f,' ori');
        end;
    end;
end;
begin
  clrscr;
  introducere;
  afisare;
  frecventa;
  readkey;
end.